home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / gfx / misc / VideoEasel.lha / Video Easel / CAMRexx / TM-Gas_Borders.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-31  |  440b  |  21 lines
  1. /* TM-Gas by an idea of Toffoli, in CAMRexx by THOR */
  2.  
  3. MakeAlgorithm:
  4.    if plane=0 then
  5.       PLANEALGORITHM margolus hvphases
  6.    if plane=1 then
  7.       PLANEALGORITHM echo center1
  8. return
  9.  
  10. MakePlane:
  11.    if plane=0 then; do
  12.       if (center=opp & cw=ccw & center~=cw) | (ul_ | ur_ | ll_ | lr_) then
  13.             SETPLANE center
  14.       else; do
  15.          if phase then  SETPLANE cw
  16.          else           SETPLANE ccw
  17.       end
  18.    end
  19. return
  20.  
  21.